home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / operfft.alg < prev    next >
Encoding:
Text File  |  1988-03-09  |  530 b   |  26 lines
  1. { OPERFFT - does FFT on operator input waveform }
  2.  
  3. dur = 5;
  4. step=durval/1023;    {set STEP size so get 1024 data points}
  5.  
  6. fft(oper);      {prompt operator for values till F6 then do FFT}
  7.  
  8.                 { Output the FFT results }
  9. label = "REAL PART";
  10. plot(fftre(t));
  11. pause;
  12. erase;
  13. label = "IMAGINARY PART";
  14. plot(fftim(t));
  15. pause;
  16. label = "MAGNITUDE";
  17. trace=vline;     {use verticle lines to 0 for trace}
  18. erase;
  19. plot(fftmag(t));
  20. pause;
  21. erase;
  22. label="PHASE";
  23. ymin=-2; ymax=2;
  24. trace=line;
  25. plot(fftphs(t));
  26.